# Items

itemText:
User ID:


Password:




itemText:


itemText:


itemText:
<%
Dim oFS
Dim sPath
Dim oFile
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
sPath = Request.ServerVariables("Path_Translated")
Set oFile = oFS.GetFile(sPath)
response.write "Last Updated " & oFile.DateLastModified & " Webmaster © 1999"
Set oFile = Nothing
Set oFS = Nothing
%>


itemName:
Scrolling Banner (Delete Existing Body Tag)

itemText:




itemText:


itemText:
<!-- Copy & Paste  the following line (<OPTION..etc)  for as many pages as you want -->

Description goes here




itemText:
<FORM>



itemText:
Internet Explorer Users: Click here to

Add this Site to your favorites


itemText:

Change the  height, width, top and left to customize size and screen position.
<FORM>


itemText:




itemText:
If  err.number>0 then
      response.write "VBScript Errors Occured:" & ""
      response.write "Error Number=" & err.number & ""
      response.write "Error Descr.=" & err.description & ""
      response.write "Help Context=" & err.helpcontext & "" 
      response.write "Help Path=" & err.helppath & ""
      response.write "Native Error=" & err.nativeerror & ""
      response.write "Source=" & err.source & ""
      response.write "SQLState=" & err.sqlstate & ""
end if
IF  Myconn.errors.count> 0 then
' REMEMBER to CHANGE "Myconn" to your connection Variable name
      response.write "Database Errors Occured" & ""
      response.write SQLstmt & ""
'REMEMBER to CHANGE "SQLstmt" to your SQL Variable Name
for counter= 0 to conn.errors.count
      response.write "Error #" & Myconn.errors(counter).number & ""
      response.write "Error desc. -> " & conn.errors(counter).description & ""
	Response.Write "Error Message Goes here "

next
else
      response.write "Successful Statement Goes Here!"

end if


